← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:37 2022

Filename(eval 432)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 156062 statements in 157ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
421822150ms235msJSON::Schema::Modern::Error::::newJSON::Schema::Modern::Error::new
11118µs25µsJSON::Schema::Modern::Error::::BEGIN@121JSON::Schema::Modern::Error::BEGIN@121
11110µs29µsJSON::Schema::Modern::Error::::BEGIN@14.336JSON::Schema::Modern::Error::BEGIN@14.336
1116µs18µsJSON::Schema::Modern::Error::::BEGIN@77JSON::Schema::Modern::Error::BEGIN@77
1115µs5µsJSON::Schema::Modern::Error::::BEGIN@19.337JSON::Schema::Modern::Error::BEGIN@19.337
1114µs12µsJSON::Schema::Modern::Error::::BEGIN@106JSON::Schema::Modern::Error::BEGIN@106
1114µs10µsJSON::Schema::Modern::Error::::BEGIN@116JSON::Schema::Modern::Error::BEGIN@116
1114µs7µsJSON::Schema::Modern::Error::::BEGIN@126JSON::Schema::Modern::Error::BEGIN@126
1113µs8µsJSON::Schema::Modern::Error::::BEGIN@82JSON::Schema::Modern::Error::BEGIN@82
1112µs9µsJSON::Schema::Modern::Error::::BEGIN@111JSON::Schema::Modern::Error::BEGIN@111
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
220s my $isa_check_for_keyword_5flocation = ${$_[1]->{"\$isa_check_for_keyword_5flocation"}};
311µs my $coerce_for_exception = ${$_[1]->{"\$coerce_for_exception"}};
410s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
510s my $isa_check_for_absolute_5fkeyword_5flocation = ${$_[1]->{"\$isa_check_for_absolute_5fkeyword_5flocation"}};
610s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
710s my $isa_check_for_exception = ${$_[1]->{"\$isa_check_for_exception"}};
810s my $coerce_for_absolute_5fkeyword_5flocation = ${$_[1]->{"\$coerce_for_absolute_5fkeyword_5flocation"}};
910s my $isa_check_for_mode = ${$_[1]->{"\$isa_check_for_mode"}};
1010s my $isa_check_for_instance_5flocation = ${$_[1]->{"\$isa_check_for_instance_5flocation"}};
1110s my $isa_check_for_error = ${$_[1]->{"\$isa_check_for_error"}};
1210s my $isa_check_for_keyword = ${$_[1]->{"\$isa_check_for_keyword"}};
13 package JSON::Schema::Modern::Error;
14238µs248µs
# spent 29µs (10+19) within JSON::Schema::Modern::Error::BEGIN@14.336 which was called: # once (10µs+19µs) by Sub::Quote::_clean_eval at line 14
no warnings 'closure';
# spent 29µs making 1 call to JSON::Schema::Modern::Error::BEGIN@14.336 # spent 19µs making 1 call to warnings::unimport
15
# spent 235ms (150+85.4) within JSON::Schema::Modern::Error::new which was called 4218 times, avg 56µs/call: # 4217 times (150ms+85.4ms) by JSON::Schema::Modern::Utilities::E at line 227 of JSON/Schema/Modern/Utilities.pm, avg 56µs/call # once (37µs+19µs) by JSON::Schema::Modern::Utilities::E at line 177 of Sub/Defer.pm
sub new {
16 ($_QUOTED,$_UNQUOTED) if 0;
17# BEGIN quote_sub PRELUDE
18package JSON::Schema::Modern::Error;
19
# spent 5µs within JSON::Schema::Modern::Error::BEGIN@19.337 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 24
BEGIN {
2010s $^H = 2018;
2111µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
2213µs %^H = (
23 );
241173µs15µs}
# spent 5µs making 1 call to JSON::Schema::Modern::Error::BEGIN@19.337
25# END quote_sub PRELUDE
2642171.67ms my $invoker = CORE::shift();
2742172.56ms my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
2842172.38ms if ($class ne "JSON::Schema::Modern::Error") {
29 if ($Moo::MAKERS{$class}) {
30 if ($Moo::MAKERS{$class}{constructor}) {
31 package JSON::Schema::Modern::Error;
32 return $invoker->SUPER::new(@_);
33 }
34 Moo->_constructor_maker_for($class);
35 return $invoker->new(@_);
36 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
37 return $meta->new_object(
38 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
39 : $class->Moo::Object::BUILDARGS(@_)
40 );
41 }
42 }
43 my $args = scalar @_ == 1
44 ? CORE::ref $_[0] eq 'HASH'
45421716.7ms ? { %{ $_[0] } }
46 : Carp::croak("Single parameters to new() must be a HASH ref"
47 . " data => ". $_[0])
48 : @_ % 2
49 ? Carp::croak("The new() method for $class expects a hash reference or a"
50 . " key/value list. You passed an odd number of arguments")
51 : {@_}
52 ;
5342178.45ms if (my @missing = grep !exists $args->{$_}, "error", "instance_location", "keyword", "keyword_location") {
54 Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing));
55 }
5642172.67ms my $new = bless({}, $class);;
5742171.63ms(exists $args->{"absolute_keyword_location"} and ($new->{"absolute_keyword_location"} = scalar do { my $value = do {
5842179.40ms local $Method::Generate::Accessor::CurrentAttribute = {
59 init_arg => "absolute_keyword_location",
60 name => "absolute_keyword_location",
61 step => "coercion",
62 };
6342172.04ms (my $_return),
64 (my $_error), (my $_old_error = $@);
6542172.37ms (eval {
66 ($@ = $_old_error),
67 ($_return =
68421711.6ms421778.5ms$coerce_for_absolute_5fkeyword_5flocation->($args->{"absolute_keyword_location"})),
# spent 78.5ms making 4217 calls to JSON::Schema::Modern::Error::__ANON__[JSON/Schema/Modern/Error.pm:39], avg 19µs/call
69 1
70 } or
71 $_error = CORE::ref $@ ? $@ : "coercion for \"absolute_keyword_location\" failed: ".$@);
7242172.11ms ($@ = $_old_error),
73 (defined $_error and CORE::die $_error);
7442174.53ms $_return;
75}
76;
771265320.0ms84364.35ms
# spent 18µs (6+12) within JSON::Schema::Modern::Error::BEGIN@77 which was called: # once (6µs+12µs) by Sub::Quote::_clean_eval at line 77
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) or Type::Tiny::_failed_check($isa_check_for_absolute_5fkeyword_5flocation, "InstanceOf[\"Mojo::URL\"]", $value, "attribute_name","absolute_keyword_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"absolute_keyword_location\"}"); $value }),
# spent 2.34ms making 4217 calls to Scalar::Util::blessed, avg 555ns/call # spent 1.98ms making 4217 calls to UNIVERSAL::isa, avg 470ns/call # spent 18µs making 1 call to JSON::Schema::Modern::Error::BEGIN@77 # spent 12µs making 1 call to warnings::unimport
78 $value
79}
80)),
8142171.98ms(exists $args->{"error"} and ($new->{"error"} = scalar do { my $value = $args->{"error"};
82168709.51ms213µs
# spent 8µs (3+5) within JSON::Schema::Modern::Error::BEGIN@82 which was called: # once (3µs+5µs) by Sub::Quote::_clean_eval at line 82
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_error, "Str", $value, "attribute_name","error","attribute_step","isa check","mgaca","0","varname","\$args->{\"error\"}"); $value }),
# spent 8µs making 1 call to JSON::Schema::Modern::Error::BEGIN@82 # spent 5µs making 1 call to warnings::unimport
83 $value
84}
85)),
86(exists $args->{"exception"} and ($new->{"exception"} = scalar do { my $value = do {
87 local $Method::Generate::Accessor::CurrentAttribute = {
88 init_arg => "exception",
89 name => "exception",
90 step => "coercion",
91 };
92 (my $_return),
93 (my $_error), (my $_old_error = $@);
94 (eval {
95 ($@ = $_old_error),
96 ($_return =
97$coerce_for_exception->($args->{"exception"})),
98 1
99 } or
100 $_error = CORE::ref $@ ? $@ : "coercion for \"exception\" failed: ".$@);
101 ($@ = $_old_error),
102 (defined $_error and CORE::die $_error);
103 $_return;
104}
105;
106246µs220µs
# spent 12µs (4+8) within JSON::Schema::Modern::Error::BEGIN@106 which was called: # once (4µs+8µs) by Sub::Quote::_clean_eval at line 106
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::PP::Boolean]))) or Type::Tiny::_failed_check($isa_check_for_exception, "InstanceOf[\"JSON::PP::Boolean\"]", $value, "attribute_name","exception","attribute_step","isa check","mgaca","0","varname","\$args->{\"exception\"}"); $value }),
# spent 12µs making 1 call to JSON::Schema::Modern::Error::BEGIN@106 # spent 8µs making 1 call to warnings::unimport
107 $value
108}
109)),
11042171.64ms(exists $args->{"instance_location"} and ($new->{"instance_location"} = scalar do { my $value = $args->{"instance_location"};
111168706.88ms216µs
# spent 9µs (2+7) within JSON::Schema::Modern::Error::BEGIN@111 which was called: # once (2µs+7µs) by Sub::Quote::_clean_eval at line 111
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_instance_5flocation, "Str", $value, "attribute_name","instance_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"instance_location\"}"); $value }),
# spent 9µs making 1 call to JSON::Schema::Modern::Error::BEGIN@111 # spent 7µs making 1 call to warnings::unimport
112 $value
113}
114)),
11542171.65ms(exists $args->{"keyword"} and ($new->{"keyword"} = scalar do { my $value = $args->{"keyword"};
116168706.66ms216µs
# spent 10µs (4+6) within JSON::Schema::Modern::Error::BEGIN@116 which was called: # once (4µs+6µs) by Sub::Quote::_clean_eval at line 116
(do { no warnings "void"; package Type::Tiny; ((do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } } or (!defined($value)))) or Type::Tiny::_failed_check($isa_check_for_keyword, "Str|Undef", $value, "attribute_name","keyword","attribute_step","isa check","mgaca","0","varname","\$args->{\"keyword\"}"); $value }),
# spent 10µs making 1 call to JSON::Schema::Modern::Error::BEGIN@116 # spent 6µs making 1 call to warnings::unimport
117 $value
118}
119)),
12042171.28ms(exists $args->{"keyword_location"} and ($new->{"keyword_location"} = scalar do { my $value = $args->{"keyword_location"};
121168706.31ms232µs
# spent 25µs (18+7) within JSON::Schema::Modern::Error::BEGIN@121 which was called: # once (18µs+7µs) by Sub::Quote::_clean_eval at line 121
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_keyword_5flocation, "Str", $value, "attribute_name","keyword_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"keyword_location\"}"); $value }),
# spent 25µs making 1 call to JSON::Schema::Modern::Error::BEGIN@121 # spent 7µs making 1 call to warnings::unimport
122 $value
123}
124)),
125421732.2ms(exists $args->{"mode"} and ($new->{"mode"} = scalar do { my $value = $args->{"mode"};
1262222µs210µs
# spent 7µs (4+3) within JSON::Schema::Modern::Error::BEGIN@126 which was called: # once (4µs+3µs) by Sub::Quote::_clean_eval at line 126
(do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:(?:evaluate|traverse))\z})) or Type::Tiny::_failed_check($isa_check_for_mode, "Enum[\"traverse\",\"evaluate\"]", $value, "attribute_name","mode","attribute_step","isa check","mgaca","0","varname","\$args->{\"mode\"}"); $value }),
# spent 7µs making 1 call to JSON::Schema::Modern::Error::BEGIN@126 # spent 3µs making 1 call to warnings::unimport
127 $value
128}
129)),
130 return $new;
131 }
13211µs $$_UNQUOTED = \&new;
133}
13416µs1;
135
136;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.